home *** CD-ROM | disk | FTP | other *** search
Wrap
Path: goliath.apana.org.au!amioz!perrym From: perrym@amioz.apana.org.au (Perry Mowbray) Message-ID: <30ffc7dc@amioz.apana.org.au> Newsgroups: comp.sys.amiga.applications X-FTN-To: Adrian Maggs Subject: Re: Pagestream/GoldED script? Date: 19 Jan 96 10:33:32 GMT Organization: AmiOZ BBS Australia <UUCP<->Fido gateway> X-GateSoftware: AmiGate 1.3a (24.3.95) In a message of 16 Jan 96 Adrian Maggs wrote to All: AM> Has anyone written a SendtoGoldED script for Pagestream3? No AM> I've got the default SendtoPageliner and SendtoTTX, but I don't use AM> TTX, and Pageliner, IMHO, isn't as good as GoldED. True. But initially the problem I'd see are the endoflines that Golded would stick into it? That is, when loaded the lines would be however characters wide Goldeds limit is! The neat thing about PageLiner is that it wraps within the window without adding EOLs. But try changing the script to following lines: gepath='GoldEd:GoldEd' preffile='PageStream3:SendtoGoldEd.prefs' if ~exists(gepath) then do if open(.ifile, preffile, 'R') then do gepath=readln(.ifile) call close(.ifile) askuser='no' end else do askuser='yes' end if ~exists(gepath) | askuser='yes' then do getfile TITLE "'Please locate GoldEd'" load path "'Sys:'" file 'GoldEd' posbutton 'Ok' negbutton 'Cancel' if RC=10 then signal cancel gepath=result if open(.ifile, preffile, 'W') then do call writeln(.ifile, gepath) call close(.ifile) end end end ADDRESS COMMAND 'run >nil:' gepath do 20 if ~show(P, 'GOLDED.1') then call delay(50) end /* If the ARexx port didn't show up, alert the user and exit */ if ~show(P, 'GOLDED.1') then do ADDRESS 'PAGESTREAM' allocarexxrequester '"Send to Editor Error!"' 368 59 reqhandle=result addarexxgadget reqhandle EXIT 286 42 70 label "_Exit" Exithandle=result addarexxgadget reqhandle TEXT 8 10 352 border none string "'GoldEd could not be started.'" doarexxrequester reqhandle freearexxrequester reqhandle 'refresh continue' 'lockinterface false' EXIT end ADDRESS 'GOLDED.1' 'open t:GoldEdText SMART RAW' 'cursor down' /* Wait for the user to finish in PageLiner */ do forever if show(P, 'GOLDED.1') then do 'getarticle t:hotlinkedarticle' if rc=0 then call delay(50) else signal update end else signal update end /* Update PageStream and exit */ UPDATE: ADDRESS 'PAGESTREAM' 'screentofront' 'revealwindow current' 'inserttext file t:GoldEdText filter ascii textcode PageStream' /* deselect the text if rquired */ if sID=eID then selecttext none signal cancel CANCEL: ADDRESS 'PAGESTREAM' 'refresh continue' 'lockinterface false' ADDRESS COMMAND 'delete t:GoldEdText >NIL:' EXIT Don't know if that helps? ************************************************************************** Perry Mowbray Email: perrym@amioz.apana.org.au FIDO: 3:713/817.7 AmigaNet: 41:200/817.7 **************************************************************************